program fat;
var i:integer;
function fat(n:integer) : integer;
begin
	if n<=1 then fat := 1
	else        fat := n * fat(n-1);
end;
begin
	i := fat(4);
end.

